Option Explicit
Sub D_Sample019()
    Dim mySht As Worksheet
    Set mySht = Worksheets(1)				'Nu@
    'ǳƨ즹
    With Worksheets
        mySht.Copy After:=.Item(.Count)			'ƻs̫᭱
        mySht.Copy Before:=.Item(1)  			'ƻs̫e
        mySht.Copy 					'ƻssï
    End With
    Set mySht = Nothing						'
End Sub

